home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / storage / function / scsi / add / wrtlong.scr < prev    next >
Encoding:
Text File  |  1994-08-15  |  1.8 KB  |  65 lines
  1. * Writes data to the medium( writes only one block ).
  2. * The data passed is implementation - specific, but shall
  3. * include the data bytes and the ECC bytes recorded
  4. * on the medium.
  5. * The READ LONG command is usually issued before 
  6. * issuing a WRITE LONG command.
  7.  
  8. @THREAD WRTLONG.LOG
  9. @NEWALIAS SADD SCSIADD.GRA
  10. @IMPORT SCSICOM.SCR
  11. SADD DD_OPEN
  12.  
  13. * 0=Async mode, 1=Sync mode
  14. SADD SET MODE=1
  15.  
  16. * Command completion timeout (Secs)
  17. * 0=the assigned value is the default set by the driver,
  18. * -1=the assigned value is infinite.
  19. SADD SET TIMEOUT=0
  20.  
  21. SADD SET LABEL = "READ CAPACITY"
  22. SADD READCAPACITY
  23.  
  24. * 32bit starting logical block addr
  25. SADD SET LOGICAL_BLOCK_ADDR = 60
  26.  
  27. *STARTING LOGICAL BLOCK ADDR
  28. *SADD RESPONSE $PROMPT="ENTER STARTING LOGICAL BLOCK ADDR : " $RESPONSE=LOGICAL_BLOCK_ADDR $PAUSE=15
  29.  
  30. *  0 = indicates that the logical block address field
  31. *      specifies the first logical block of the range of
  32. *      logical blocks to be operated on by this command.
  33. *  1 = indicates that the logical block address field is
  34. *      a two's complement displacement.  This -ve or +ve
  35. *      displacement shall be added to the logical block
  36. *      address last accessed on the logical unit to form the
  37. *      logical block address for this command.
  38. SADD SET ADDR_MODE=0
  39.  
  40. * No. of bytes to be read
  41. SADD SET NUM_BYTES = 0
  42.  
  43. *NO. OF CONTIGOUS LOGICAL BLOCKS TO BE READ
  44. *SADD RESPONSE $PROMPT="ENTER # OF LOGICAL BLOCKS : " $RESPONSE=NUM_BLOCKS $PAUSE=15
  45.  
  46. * 0 : read without making any correction
  47. * 1 : data to be corrected by ECC before being transferred
  48. SADD SET ECC_CORRECT = 0
  49.  
  50. * Name for paramblock
  51. SADD SET LABEL = "READ LONG"
  52. SADD SET SCATGAT=ALPHA
  53. SADD READ_LONG
  54.  
  55. * Name for paramblock
  56. SADD SET LABEL = "WRITE LONG"
  57.  
  58. * 32bit starting logical block addr
  59. SADD SET LOGICAL_BLOCK_ADDR = 70
  60.  
  61. SADD WRITE_LONG
  62.  
  63. SADD DD_CLOSE
  64.  
  65.